home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Photodex - Picture Factory
/
Photodex Picture Factory 1 - Hi-Rez - Disc 1.iso
/
photodex.mst
< prev
next >
Wrap
Text File
|
1994-05-24
|
3KB
|
128 lines
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATH = 300
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST APPHELP = 900
CONST BADPATH = 6400
CONST LOGO = 1
GLOBAL DEST$
GLOBAL OPTCUR$
DECLARE SUB Install
DECLARE FUNCTION MakePath(szDir$, szFile$) AS STRING
INIT:
CUIDLL$="mscuistf.dll"
HELPPROC$="FHelpDlgProc"
SetBitmap CUIDLL$,LOGO
SetTitle "ClickSearch(tm) Installation"
szInf$=GetSymbolValue("STF_SRCINFPATH")
IF szInf$="" THEN
szInf$=GetSymbolValue("STF_CWDDIR")+"PHOTODEX.INF"
END IF
ReadInfFile szInf$
OPTCUR$="1"
DEST$="C:\PFHIRES"
WELCOME:
sz$=UIStartDlg(CUIDLL$,WELCOME,"FInfoDlgProc",APPHELP,HELPPROC$)
IF sz$="CONTINUE" THEN
UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
GETPATH:
SetSymbolValue "EditTextIn",DEST$
SetSymbolValue "EditFocus","END"
GETPATHL1:
sz$=UIStartDlg(CUIDLL$,DESTPATH,"FEditDlgProc",APPHELP,HELPPROC$)
DEST$=GetSymbolValue("EditTextOut")
IF sz$="CONTINUE" THEN
IF IsDirWritable(DEST$)=0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
ELSEIF sz$="REACTIVATE" THEN
GOTO GETPATHL1
ELSEIF sz$="BACK" THEN
UIPop 1
GOTO WELCOME
ELSE
GOSUB ASKQUIT
GOTO GETPATH
END IF
Install
QUIT:
ON ERROR GOTO ERRQUIT
IF ERR=0 THEN
dlg%=EXITSUCCESS
ELSEIF ERR=STFQUIT THEN
dlg%=EXITQUIT
ELSE
dlg%=EXITFAILURE
END IF
QUITL1:
sz$=UIStartDlg(CUIDLL$,dlg%,"FInfo0DlgProc",0,"")
IF sz$="REACTIVATE" THEN
GOTO QUITL1
END IF
UIPop 1
END
ERRQUIT:
i%=DoMsgBox("Setup sources were corrupted!","Setup Message",MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
BADPATH:
sz$=UIStartDlg(CUIDLL$,BADPATH,"FInfo0DlgProc",0,"")
IF sz$="REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$=UIStartDlg(CUIDLL$,ASKQUIT,"FQuitDlgProc",0,"")
IF sz$="EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$="REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN
SUB Install STATIC
SrcDir$=GetSymbolValue("STF_SRCDIR")
CreateDir DEST$,cmoNone
AddSectionFilesToCopyList "Files",SrcDir$,DEST$
CopyFilesInCopyList
CreateProgmanGroup "Picture Factory","",cmoNone
ShowProgmanGroup "Picture Factory",1,cmoNone
CreateProgmanItem "Picture Factory","Picture Factory Disc A",DEST$+"\hires.exe","",cmoOverwrite
END SUB
FUNCTION MakePath(szDir$,szFile$) STATIC AS STRING
IF szDir$="" THEN
MakePath=szFile$
ELSEIF szFile$="" THEN
MakePath=szDir$
ELSEIF MID$(szDir$,LEN(szDir$),1)="\" THEN
MakePath=szDir$+szFile$
ELSE
MakePath=szDir$+"\"+szFile$
END IF
END FUNCTION